Változó növekményes sorozat, előltesztelő (while) ciklussal (ValtozoNovekmenyes.pas)
program ValtozoNovekmenyes;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
k:=1;
k = változó növekmény
while(i<=n) do begin
writeln(a);
a:=a+k;
A sorozatelem értékét megnöveljük a változó növekménnyel.
k:=k+1;
A növekményt mindig növeljük egyel.
i:=i+1;
end;
END.
Változó növekményes sorozat, for ciklussal (ValtozoNovekmenyesV1.pas)
program ValtozoNovekmenyesV1;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
a:=1;
k:=1;
for i:=1 to n do begin
writeln(a);
a:=a+k;
k:=k+1;
end;
END.
Változó növekményes sorozat, hátultesztelő (repeat - until) ciklussal (ValtozoNovekmenyesV2.pas)
program ValtozoNovekmenyesV2;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
k:=1;
repeat
writeln(a);
a:=a+k;
k:=k+1;
i:=i+1;
until(i>n);
END.